|
2300
|
Adds a Start-Finish(SF) link (method 2)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Name");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/3/2001","1/6/2001");
h2 = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/3/2001","1/6/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h2,``,270) = `1SF`");
_ObjectCallMethod( items , "SchedulePDM", 0,"");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2299
|
Adds a Start-Finish(SF) link (method 1)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Name");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/3/2001","1/6/2001");
h2 = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/3/2001","1/6/2001");
_ObjectCallMethod( items , "AddLink", "Link1",h1,"",h2,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`Link1`,260) = `SF`");
_ObjectCallMethod( items , "SchedulePDM", 0,"");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2298
|
Adds a Finish-Finish(FF) link (method 1)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Name");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/3/2001","1/6/2001");
h2 = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/3/2001","1/6/2001");
_ObjectCallMethod( items , "AddLink", "Link1",h1,"",h2,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`Link1`,260) = `FF`");
_ObjectCallMethod( items , "SchedulePDM", 0,"");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2297
|
Adds a Start-Start(SS) link (method 1)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Name");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/3/2001","1/6/2001");
h2 = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/3/2001","1/6/2001");
_ObjectCallMethod( items , "AddLink", "Link1",h1,"",h2,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`Link1`,260) = `SS`");
_ObjectCallMethod( items , "SchedulePDM", 0,"");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2296
|
Adds a Finish-Start(FS) link (method 1)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Name");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/3/2001","1/6/2001");
h2 = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/3/2001","1/6/2001");
_ObjectCallMethod( items , "AddLink", "Link1",h1,"",h2,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`Link1`,260) = `FS`");
_ObjectCallMethod( items , "SchedulePDM", 0,"");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2295
|
What is the difference between lags with "W" or without
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Name");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split");
_ObjectSetProperty( bar , "Shortcut", "Task");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(20) = True");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/3/2001","1/6/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2001","1/6/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"Task","1/3/2001","1/6/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(ItemByIndex(0),``,271) = `2SF:-1,3SF:-1W`");
_ObjectCallMethod( items , "SchedulePDM", 0,"");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2294
|
What is the difference between lags with "W" or without
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Name");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/3/2001","1/6/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2001","1/6/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"Task","1/3/2001","1/6/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(ItemByIndex(0),``,271) = `2SF:-1,3SF:-1W`");
_ObjectCallMethod( items , "SchedulePDM", 0,"");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2293
|
How can I remove all outgoing links
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Name");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/1/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/5/2001","1/8/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"Task","1/9/2001","1/12/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod( items , "AddLink", "L1",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(0)"),"",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(1)"),"");
_ObjectCallMethod( items , "AddLink", "L2",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(1)"),"",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(2)"),"");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(ItemByIndex(1),``,271) = ``");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2292
|
How can I remove all incoming links
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Name");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/1/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/5/2001","1/8/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"Task","1/9/2001","1/12/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod( items , "AddLink", "L1",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(0)"),"",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(1)"),"");
_ObjectCallMethod( items , "AddLink", "L2",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(1)"),"",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(2)"),"");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(ItemByIndex(1),``,270) = ``");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2291
|
How do I add a link between two bars (method 3)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Name");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/1/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/5/2001","1/8/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,271) = `2SF`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2290
|
How do I add a link between two bars (method 2)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Name");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/1/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/5/2001","1/8/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,270) = `2SF`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2289
|
Highlight the selected-link while editing the predecessor/successor column
// AddLink event - Occurs when the user links two bars using the mouse.
FUNCTION g2anttEvents_AddLink(OBJECT g2antt, STRING LinkKey)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim LinkKey")
_ObjectCallMethod(g2antt, "TemplatePut", LinkKey)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Items.Link(LinkKey,15) = 3");
END
OBJECT bar,chart,column,columns,editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "OnResizeControl", 1);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
_ObjectSetProperty( g2antt , "ColumnAutoResize", 0);
_ObjectSetProperty( g2antt , "HeaderHeight", 32);
_ObjectSetProperty( g2antt , "DefaultItemHeight", 28);
_ObjectSetProperty( g2antt , "BackColorLevelHeader", 16777215);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(197) = 10526880");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(198) = 8421504");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 48);
column = _ObjectCallMethod( columns , "Add", "Start");
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 7);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 1");
column = _ObjectCallMethod( columns , "Add", "End");
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 7);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 543");
column = _ObjectCallMethod( columns , "Add", "Predecessor");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 1);
_ObjectSetProperty( editor , "EditType", 8);
_ObjectSetProperty( editor , "Mask", ";;;rich");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 270");
column = _ObjectCallMethod( columns , "Add", "Successor");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 1);
_ObjectSetProperty( editor , "EditType", 8);
_ObjectSetProperty( editor , "Mask", ";;;rich");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 271");
column = _ObjectCallMethod( columns , "Add", "(I)");
_ObjectSetProperty( column , "FormatColumn", "1 index ``");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "GridLineStyle", 512);
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectSetProperty( g2antt , "GridLineColor", 14737632);
_ObjectSetProperty( g2antt , "AntiAliasing", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "ShowLinks", 1);
_ObjectSetProperty( chart , "LinksStyle", 0);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 362");
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectSetProperty( chart , "AllowLinkBars", -1);
_ObjectSetProperty( chart , "AllowCreateBar", 2);
_ObjectSetProperty( chart , "AllowZoomOnFly", -1);
_ObjectSetProperty( chart , "GridLineStyle", 512);
_ObjectSetProperty( chart , "DrawGridLines", -1);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Height", 15);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<%=%C5%>`");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Phase A"),"Task","1/1/2001","1/6/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Phase B"),"Task","1/2/2001","1/7/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Phase C"),"Task","12/29/2000","1/4/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod( items , "AddLink", "L1",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(0)"),"",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(1)"),"");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,17) = 1");
_ObjectCallMethod( items , "AddLink", "L2",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(0)"),"",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(2)"),"");
_ObjectCallMethod( items , "AddLink", "L3",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(2)"),"",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(1)"),"");
_ObjectCallMethod( items , "SchedulePDM", 0,"");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2288
|
Adding an editable successor column
OBJECT chart,column,columns,editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 48);
column = _ObjectCallMethod( columns , "Add", "Successor");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 1);
_ObjectSetProperty( editor , "EditType", 8);
_ObjectSetProperty( editor , "Mask", ";;;rich");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 271");
column = _ObjectCallMethod( columns , "Add", "(I)");
_ObjectSetProperty( column , "FormatColumn", "1 index ``");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "GridLineStyle", 512);
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectSetProperty( g2antt , "GridLineColor", 14737632);
_ObjectSetProperty( g2antt , "AntiAliasing", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( chart , "AllowLinkBars", -1);
_ObjectSetProperty( chart , "AllowCreateBar", 2);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Phase A"),"Task","1/1/2001","1/6/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Phase B"),"Task","1/2/2001","1/7/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Phase C"),"Task","12/29/2000","1/4/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod( items , "AddLink", "L1",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(0)"),"",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(1)"),"");
_ObjectCallMethod( items , "AddLink", "L2",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(0)"),"",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(2)"),"");
_ObjectCallMethod( items , "AddLink", "L3",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(2)"),"",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(1)"),"");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2287
|
Adding an editable predecessor column
OBJECT chart,column,columns,editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 48);
column = _ObjectCallMethod( columns , "Add", "Predecessor");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 1);
_ObjectSetProperty( editor , "EditType", 8);
_ObjectSetProperty( editor , "Mask", ";;;rich");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 270");
column = _ObjectCallMethod( columns , "Add", "(I)");
_ObjectSetProperty( column , "FormatColumn", "1 index ``");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "GridLineStyle", 512);
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectSetProperty( g2antt , "GridLineColor", 14737632);
_ObjectSetProperty( g2antt , "AntiAliasing", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( chart , "AllowLinkBars", -1);
_ObjectSetProperty( chart , "AllowCreateBar", 2);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Phase A"),"Task","1/1/2001","1/6/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Phase B"),"Task","1/2/2001","1/7/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Phase C"),"Task","12/29/2000","1/4/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod( items , "AddLink", "L1",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(0)"),"",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(1)"),"");
_ObjectCallMethod( items , "AddLink", "L2",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(0)"),"",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(2)"),"");
_ObjectCallMethod( items , "AddLink", "L3",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(2)"),"",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemByIndex(1)"),"");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2286
|
Adding an Index column
OBJECT column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 48);
column = _ObjectCallMethod( columns , "Add", "Index");
_ObjectSetProperty( column , "FormatColumn", "1 index ``");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 48);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Phase A");
_ObjectCallMethod( items , "AddItem", "Phase B");
_ObjectCallMethod( items , "AddItem", "Phase C");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2285
|
Create a new bar should start at 1 day (after moving some pixel to the right 1 days is showing) and new days should been showing as soon as you hit the next day. How can I do that (create bar manually)
// CreateBar event - Fired when the user creates a new bar.
FUNCTION g2anttEvents_CreateBar(OBJECT g2antt, INT Item, REAL DateStart, REAL DateEnd)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddBar", Item,"Task",DateStart,DateEnd,"","new");
END
OBJECT chart,g2antt,items,level;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "OnResizeControl", 1);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Index") , "FormatColumn", "1 index ``");
_ObjectSetProperty( g2antt , "GridLineStyle", 512);
_ObjectSetProperty( g2antt , "DrawGridLines", 1);
_ObjectSetProperty( g2antt , "GridLineColor", 14737632);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectSetProperty( chart , "AllowLinkBars", -1);
_ObjectSetProperty( chart , "AllowCreateBar", -2);
_ObjectSetProperty( chart , "AllowZoomOnFly", -1);
_ObjectSetProperty( chart , "GridLineStyle", _ObjectGetProperty( g2antt , "GridLineStyle"));
_ObjectSetProperty( chart , "DrawGridLines", -1);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "DrawGridLines", -1);
_ObjectSetProperty( level , "GridLineColor", _ObjectGetProperty( g2antt , "GridLineColor"));
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2284
|
Create a new bar should start at 1 day (after moving some pixel to the right 1 days is showing) and new days should been showing as soon as you hit the next day. How can I do that (create bar automatically)
OBJECT chart,g2antt,level;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "OnResizeControl", 1);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Index") , "FormatColumn", "1 index ``");
_ObjectSetProperty( g2antt , "GridLineStyle", 512);
_ObjectSetProperty( g2antt , "DrawGridLines", 1);
_ObjectSetProperty( g2antt , "GridLineColor", 14737632);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/28/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectSetProperty( chart , "AllowLinkBars", -1);
_ObjectSetProperty( chart , "AllowCreateBar", 2);
_ObjectSetProperty( chart , "AllowZoomOnFly", -1);
_ObjectSetProperty( chart , "GridLineStyle", _ObjectGetProperty( g2antt , "GridLineStyle"));
_ObjectSetProperty( chart , "DrawGridLines", -1);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "DrawGridLines", -1);
_ObjectSetProperty( level , "GridLineColor", _ObjectGetProperty( g2antt , "GridLineColor"));
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2283
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of working-days when using the DateTickerLabel property (method 4, locale)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ScrollBars", 2050);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(195) = 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(20) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 96");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", "<%=value format `ddd dd`%><fgcolor 808080><%=(value=end?` (` + (wcount) + `wd)`:``)%>");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/28/2005");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/28/2005","7/1/2005");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2282
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 4, locale)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ScrollBars", 2050);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(195) = 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 96");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", "<%=value format `ddd dd`%><fgcolor 808080><%=(value=end?` (` + (end-start) + `d)`:``)%>");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/28/2005");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/28/2005","7/1/2005");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2281
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 3, english locale)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ScrollBars", 2050);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(195) = 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 96");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", "<%=(0 array (0:=(longdate(date(value)) split `,`)) left 3) + ` ` + ((2 array ((1 array =:0) split ` `)) lpad `00`) + (value=en" +
"d?` (` + (end-start) + `d)`:``)%>");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/28/2005");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/28/2005","7/1/2005");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2280
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format for start and end margins, but end margin should display one day before followed by the number of days
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ScrollBars", 2050);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(195) = 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 96");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", "<%=(weekday(0:=(value-(value=end?1:0))) array 'Sun Mon Tue Wed Thu Fri Sat' split ' ') + ` ` + day(=:0) + ` ` + ((month(=:0) - " +
"1) array 'Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec' split ' ') + (value=end?` (` + (end-start) + `d)`:``)%>");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/28/2005");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/28/2005","7/1/2005");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2279
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 2)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ScrollBars", 2050);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(195) = 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 96");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", "<%ddd%> <%d%> <%mmm%><%=(value=end?` (` + (end-start) + `d)`:``)%>");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/28/2005");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/28/2005","7/1/2005");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2278
|
How can I display the "<%ddd%> <%d%> <%mmm%>" format followed by number of days when using the DateTickerLabel property (method 1)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ScrollBars", 2050);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(195) = 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 96");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", "<%=(weekday(value) array 'Sun Mon Tue Wed Thu Fri Sat' split ' ') + ` ` + day(value) + ` ` + ((month(value) - 1) array 'Jan Feb" +
" Mar Apr May Jun Jul Aug Sep Oct Nov Dec' split ' ') + (value=end?` (` + (end-start) + `d)`:``)%>");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/28/2005");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/28/2005","7/1/2005");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2277
|
How can I display just the end-margin when user resizes the bar
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ScrollBars", 2050);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(195) = 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 96");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", "<%=value=start?``:value%>");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/28/2005");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/23/2005","7/3/2005");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2276
|
Is it possible to include the number of days (duration in days, hours, minutes) within the date-label
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ScrollBars", 2050);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(195) = 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 96");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "ResizeUnitScale", 65536);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", "<%=date(value=end?value-1:value)%><fgcolor 666666><off -4><%=value=end?` ` + ((1:=int(0:= end - start)) != 0 ? (=:1 + ' day(s)'" +
") : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s) ' : '' ) + ((1:=round((=:0 - " +
"=:1)*60)) != 0 ? =:1 + ' min(s)' : ''):``%>");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/28/2005");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/23/2005","7/3/2005");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2275
|
Is it possible to include the number of days within the date-label
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ScrollBars", 2050);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(195) = 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 96");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", "<%mmm%> <%d%><fgcolor 808080><%=value=end?` (`+(end - start) + ` days)`:``%>");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/28/2005");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/23/2005","7/3/2005");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2274
|
Is it possible to show the date-label with the bar being created, moved or resized instead below the header-bar
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ScrollBars", 2050);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(195) = 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 96");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", "<%mmm%> <%d%>");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/28/2005");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/23/2005","7/3/2005");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2273
|
Date-label customization
OBJECT appearance,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABT0GACAADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCOIwAFBIZhrE4ZRwGCQRRgyI43RhHUBzV" +
"IUBxDEaTZLlGY4NjSIYHThPMzyDRlEyBBqVKKoWLZMjiIY2RhJM7SBR0OROGQaRJrewZHDUMJiQjZVoVNTkNyxH6uYzoKSqVACLowTJNFZXDDkeR5JqcKBqChIEpKO5w" +
"RriAABVZoAA3Rq+AAuPBJIwYAAyXTIdTwThkBz3R6tchgOw7LxeZJpWbZOo0TgGFwTLDQNCifI7Vi6NJ1DdcKLNNx3tDBdpGXZ4JznGa8a7jN57dr+JQ7U6degACytKx" +
"LBeOprHMcA+GafxaAiBIUA0JgziGVJkGUGJIFyUYiBEN5VBsGxCEUEIcn0cAxBgWBijmM4Ekec57n0RwJBgBgCgCEZCC4BoBmAdBwgSApgkgMQcB8YQIEYERHAceBWBa" +
"BYRkGQgagaYY0HAaYHmICIBBwGJiEiFglEcBYYiYKoKhGQRCC6C5inQcBNgyYxIlIMoNGMWI2DCDAigiLgrgiYhohoHoIGIGBmByBwhEgXgXgOYQoEoCoDGCWAWAiAgg" +
"AgDgDEcH5pGUHAoCWSR2F0cxOjSHQJEAQCAg=");
_ObjectCallMethod( appearance , "Add", 2,"CP:1 -2 -2 4 4");
_ObjectSetProperty( g2antt , "ScrollBars", 2050);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(192) = 33554432");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(193) = 16777215");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(194) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(195) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(196) = 4");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 96");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", "<%mmm%><br><%d%>");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/28/2005");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/23/2005","7/3/2005");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2272
|
How can I change the visual appearance for the date-label (EBN)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhABaICg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" +
"AceAAGaUZrjSgobjmOYhAJCL70WAFFr/DCgZThGgJHomMIhAhHAJwTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69" +
"JbwMLbSgMIKFABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFo" +
"iC8X4QnAOQ8B4dp6BONQoBoTBnEOKZIkoMYQi2JZECIb4mDYNoEgoIQ8k2PIIDEGBAEuO4UmcF5xHufgqiACAGAKAJfmKdJogGWRAACbYCk0KA0mCA5OFgRgSgSYRIDy" +
"YAymGCAsm0QhNAgdJmgeX5DgiYYImISIWCaCBhCMUgqEITJIjSZ4Lk4OJGDKDJjEiVgvDmYpTDILILGAc4gmSD5kAkBhChCY5YmYOwzA6GQmBSEpkkgShJDoZBkA4OQ6" +
"iUSB+FaFZlgkZJmhUDopEQAIOE6OYGDeGJmEmFg3hgTo5HoYIYGOWY2G6G9cCIaoLE6SZWE+HZngmZhPh1YJMkyBolkoBoCiCZbBn4O4ogmIoKiKaJJiKCA7ieY4+hKH" +
"wpEoVoW3MI4+H4PApkgaoeieagIGqHF3jocoPimaoKiaD4omeY5Gi6JhrAqRoyiYapjkYfg8iuCoOjqLprkqDo4DzcROkKLRsEsFpG4+I5OH4PQskqfpOjObQKn6TA9X" +
"EVpWjIbYLGaWoyG0Y5WlWNYtDuBpijibQ7HYfg9i6Cx2mqOpuksdpoD3cRenKO5vEuVp26wI5eH4PgvkuZp+j+cALmafA+XEZwGkCcIMCcCpAnAY5mH4PoxAwNwSkScR" +
"MDcEA+jCfBfBqRpxkwdwYgsZBzm8IpInITIXCaSdxHMKpKnKTI3C6S4lmgNJSkCT5slcNpNnODJnAMNZzkQJpvDYdAMDUTpQnQRQ7A2UANhuPRKFKZJ4iiVIOHUDRGDm" +
"U4higJJrGuQAEAQgI");
_ObjectSetProperty( g2antt , "ScrollBars", 2050);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(192) = 16777216");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(193) = 657930");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 96");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", " <%mmm%> <%d%>");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/28/2005");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/23/2005","7/3/2005");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2271
|
How can I change the visual appearance for the date-label (solid colors)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ScrollBars", 2050);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(192) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(193) = 16777215");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 96");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", "<%mmm%> <%d%>");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/21/2005","6/28/2005");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/23/2005","7/3/2005");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2270
|
Expandable-caption
// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION g2anttEvents_AnchorClick(OBJECT g2antt, STRING AnchorID, STRING Options)
Message( AnchorID );
END
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "TreeColumnIndex", -1);
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectSetProperty( g2antt , "GridLineStyle", 512);
_ObjectSetProperty( g2antt , "BackColorAlternate", 15790320);
_ObjectSetProperty( g2antt , "ShowFocusRect", 0);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "before item");
h = _ObjectCallMethod( items , "AddItem", "<solidline> <c><b>Bank Account 1</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4" +
"AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAA" +
"EBA==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8D" +
"ABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>&" +
"#9650;</a><br>+ withdraw(amount: Currency)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = False");
h = _ObjectCallMethod( items , "AddItem", "<solidline> <c><b>Bank Account 2</b><br> <c><fgcolor 808080>properties</solidline><a 1;e64=gArAAgABvAB3ABuABlAByAA6gYAKYAOkNABp" +
"hIAM8RHgAMMRGIAHcLAA2AA0AA9jQAIIAHEsABCAB6mEyO01ABznBwnBrlcvJU4Os4NkwlsClstjctIoAIYAJoAMYAKkXk8wqMIltRlEtNVQABHABoAFNsRPABVABWo1" +
"XpMHAE+l88otTONWslasoAosbGFwjFqoton1owN7jZRAE3jdTI1jnIAJeQnxJyFqxWHtUKqdTr9/jcKv9fNtgj8bwUFuFbABOAFonlNM1xsGun0+0tFpt3h1TitfxWlt" +
"9ft41toyyM6nRIqQAMUZnxkAF3kJMjMhxUVtkT4FtpsylsqlQ+AEdh3kEwAEYAHMlAHGv8jjovjwA8kd5/n8uRg1FjDpP8jKGPIgSCOej6io+ziSIgginqGhyHIZBY8o" +
"ilSCL++b+L4q0AKshUBgBESAgA==><r>▼</a></fgcolor><br><c><fgcolor 808080>methods</fgcolor><r><a 2;e64=gArAAgABkABlABwABvABzAB" +
"pAB0AAoABhABthYAOoAN0RAA6gYAIcaAByksHjgAMYAPIAFIAHkVkIyAA7lA2AA0AA9ABnABBAA4n4AIQANVDoECoBFkQAJoAO9Dp9CIlDop2q0NABojNAJ4AKNDplAo" +
"BIpAAI4AphXo1qmVHp9pJ1dp10r8+oFzphSut4AFfldmsgArFLABKrcqt1cGFgxONKk9AGNkcYNYAON1p5GABsABVklcy54h91yMQhxYttzkdHy84plRwxZodmJNDtIx" +
"utH2g3zufrUdy9RrlCF8p0Ejz2XGuS2ViolDnk8H0wk/VEwAEYAHIAnHNxs2mPHi3VmJi64AgUEqMQiVcg0mi1RikWjEMjcdiUggkjjaTJMhCOpWlqXgAACAg><fgcol" +
"or 808080>▼</fgcolor></a>");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = False");
_ObjectCallMethod( items , "AddItem", "after item");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2269
|
Expandable-caption
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "TreeColumnIndex", -1);
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectSetProperty( g2antt , "GridLineStyle", 512);
_ObjectSetProperty( g2antt , "BackColorAlternate", 15790320);
_ObjectSetProperty( g2antt , "ShowFocusRect", 0);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "before item");
h = _ObjectCallMethod( items , "AddItem", "<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = False");
_ObjectCallMethod( items , "AddItem", "after item");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2268
|
Can I change the pattern for a specific bar only
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/31/2009");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "Color"));
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Types");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"Task","1/4/2010","1/9/2010","");
h = _ObjectCallMethod( items , "AddItem", "W/h Pattern");
_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,42) = 6");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2267
|
Force hover-all feature
OBJECT g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(500) = -1");
|
|
2266
|
Disable hover-all feature (Windows 11 or greater)
OBJECT g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(500) = 1");
|
|
2265
|
I'm using the Milestone bar type, but find it to small and want to enlarge it. I can change the bar height, but then the shape gets a bit distorted (e.g. it doesn't scale properly)
OBJECT appearance,bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABJYCg6AADACAxRDgMQBQKAAzQFAYZhmGSGAAGIZhXgmFgAQhFcZQSKUOQTDKMIRfeQwAiNf4hQKBMIjKKAShaHCVIDlSThYAKCQxDZNUCQX" +
"DcdRRDaBR7hGgoaj6JolSRFUgSABEEigNIxToOU4jFgeCR2C7AZBEbTENBtBIUKDsKA4IBiFxAVjQFpSNZlWzdN64LhuK47UrWbYiXZeN5XXblaTxPrAMBwKzrLwPBqH" +
"XrfeIYXhlDzVC7GchxTCsSxXCaPY7lWZZPRGN49ODMNBibL9EwSA6laToWpRVpGSYpVrGdT2KgNQxbL61YLse5ZTrGF5vXrONz4LBeAwHP7FXLwfJaVxFeaPZq7eT6LR" +
"fEKa5PmgdJ7DuLotkeL5Am0eA4F2ToOHeK5hnOco8HIfQ/GOUZumWeY9h2fx/lOJ5Im8bY+j+LpWnecYxH6YAHgWMB/hgeAGAYe4aheSZ5gGYJICGG4BByaA2BIfRgjY" +
"RgTgWihaAobhhggdgBG+IY1nYHoImCRgaBAeQiEiJgHHGIgVnoKoLmEOBFmUchjAiVgYF4XZoloOoImKaJNGyDpkAiJZdggZAZBYLxphmWQaEqDRYmkLhOhEZJZD4UoM" +
"FSGJ6FOFZhheEhDhYJZHGYW4PGWWYFlSDQjmkbhi0WBZaCcepmgmBgygsJtLHCCYnBkBh0hkWAJlYMIICeBgKHqBxhimdh3h+ZYWEoa4MigR4hh6IZnhoJheGuIpYD6D" +
"humAOhFh+JJaCedoWgIaYGg2RYjCgahNnGIIbgmaZqigKI5jmaoVGqOIiEuKxjnobZjhGKwJCKNRoCSSpejaLorggeo8i8a51koVIwFaeoijOIRsEsApJhgIArC4ZIzi" +
"aKg+lCM5tDsRoUjUXRqkqWIrhuSxulmKQtmkIYsjgY4LGqZIum4e4UAAOpRBQJQBICA==");
_ObjectCallMethod( appearance , "Add", 2,"CP:1 1 1 11 -2");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 32);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Milestone`)");
_ObjectSetProperty( bar , "Height", 24);
_ObjectSetProperty( bar , "Color", 33554432);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Milestone","1/2/2001","1/2/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2264
|
I'm using the Milestone bar type, but find it to small and want to enlarge it. I can change the bar height, but then the shape gets a bit distorted (e.g. it doesn't scale properly)
OBJECT appearance,bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABXYCg6AADACAxRDgMQBQKAAzQFAYZhmGSGAAGIZhXgmFgAQhFcZQSKUOQTDKMIRfeQwAiNf4hQKBMIjKKAShaHCVIDlSThYAKCQxDZNUCDN" +
"DYAR1FCeQACCCaDgOII/SZJMiRNIEQARBIoDRMM5DVLIZYHQjCcBkERtNQvHiBRQoSw6GAAGIaRDQMZSNZlWxMfx9XyeBoVeapFhbO4mZavEyCeTgfS3MBwLA3XZxTTx" +
"KIaD6KASbepEKh6VDNF52bYrA6XWy/T6PW7GDLmUY1H5UQpnfR4Uj/JyUT7KIS7bpMNTOWYfZ7XcxibKaZw2LDvIoxWL6UosH7UEpXfR/RLGcIVL7KKTLbpQNp8GwYXJ" +
"WAMBJ+mubB3gaV5qhyNp/FIFhfmoLgPg+RZkmCeA7gWN46iSXJ4G2Mh6m+ax7nGdJ4G6MxegoXpaiSPJ/CmRZTnyJR3iAOAKASAZgGOfImBcD5iigXx7B6ZhVHAPhPHM" +
"WJDD0CohkSfQrEYE58ioGAPnKJBfggYg4goJIJmIaImCOA8gjQYg9kqMZAngNQMAOSIrByT5CmAcA/ksMYon8K4GEOfIsBjLQuESEYkFkHhKhIZJJCCLQYk+YpEGZNhB" +
"kSbgrkeM7viIT5zBCAA/kucZsn8LxHHOfI4BwT5ylQbU9kGLJ/CyBoJj4cYcCcKZUjYGwPkMDDlkqcZhgUMwPBKaIID8DQSReMoIVYRQgmiIgIn8MJlnMCB+VKaYUjpO" +
"xylgboaEbQQ3BuD5TBgfg8kuAgMncbobgOYJjDWTwCmCB1oGIVJ/DQCQDnyTAjCsYgujkP5MjqaJKhcDIaCSRwg3eMIGDyCxyAieA3k0FxRG8dgOCMVJxC8CJTnCVwmg" +
"+cxchgP5NCIUpcjeLZbHyfw1gkexYhteZSDjkQNAeSYDGyT5LCyUQ8EvL58DeSkrFwJ+ZmSG4/G+cxsh0PxNkKDJ0C+CQGkWOBthadpQniNBtDIMJ8DiSlWGMKYPnOCI" +
"mD8TgiiidI6GyO41huQwdGcYorj1g5smIKZPkOBweC+SQjmCYA0i6bIRjYbgYFMNJvC0CBLCCCA9k2Iwik6SQOjWJQDEAQCAg");
_ObjectCallMethod( appearance , "Add", 2,"CP:1 -6 0 20 0");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 32);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Milestone`)");
_ObjectSetProperty( bar , "Height", 28);
_ObjectSetProperty( bar , "Color", 33554432);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Milestone","1/2/2001","1/2/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2263
|
I'm using the Milestone bar type, but find it to small and want to enlarge it. I can change the bar height, but then the shape gets a bit distorted (e.g. it doesn't scale properly)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 32);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Milestone`).Height = 28");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Milestone","1/2/2001","1/2/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2262
|
Display the bar's tooltip at runtime
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
_ObjectCallMethod( g2antt , "ShowToolTip", _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.BarFromPoint(-1,-1)"));
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Def");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(6) = `...`");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2010","1/5/2010","A","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2010","1/8/2010","B","B");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2261
|
Includes the cell's state and user-data to bar's tooltip
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Def`).Def(0) = True");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(6) = `<%=%C0%><br>Start: <%=%1%><br>End: <%=%2%><br>State: <b><%=%CS0%></b><br>UserData: <b><%=%CD0%></b>`");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Machine 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellData(h,0) = `just some data`");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2010","1/5/2010","A","A");
h = _ObjectCallMethod( items , "AddItem", "Machine 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2010","1/5/2010","B","B");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellData(h,0) = `just nother data`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2260
|
Shows the tooltip of the object moved relative to its default position
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod( g2antt , "ShowToolTip", "<null>","<null>","","+8","+8");
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Def");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(6) = `<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>`");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2010","1/5/2010","A","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2010","1/8/2010","B","B");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2259
|
Adds, changes or replaces the title of the object's tooltip
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
_ObjectCallMethod( g2antt , "ShowToolTip", "<null>",_ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.BarFromPoint(-1,-1)"));
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Def");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(6) = `<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>`");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2010","1/5/2010","A","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2010","1/8/2010","B","B");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2258
|
Adds, changes or replaces the object's tooltip
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
_ObjectCallMethod( g2antt , "ShowToolTip", _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.BarFromPoint(-1,-1)"));
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Def");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(6) = `<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>`");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2010","1/5/2010","A","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2010","1/8/2010","B","B");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2257
|
Shows a new tooltip and title at current position
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod( g2antt , "ShowToolTip", "new content","new title");
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Def");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(6) = `<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>`");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2010","1/5/2010","A","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2010","1/8/2010","B","B");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2256
|
Shows a new tooltip and title moved relative to the current position
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod( g2antt , "ShowToolTip", "new content","new title","","+8","+8");
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Def");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(6) = `<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>`");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2010","1/5/2010","A","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2010","1/8/2010","B","B");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2255
|
Displays a different tooltip at a fixed position
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod( g2antt , "ShowToolTip", "new content","","",128,128);
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Def");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(6) = `<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>`");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2010","1/5/2010","A","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2010","1/8/2010","B","B");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2254
|
Hide the tooltip
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod( g2antt , "ShowToolTip", "","");
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Def");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(6) = `<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>`");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2010","1/5/2010","A","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2010","1/8/2010","B","B");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2253
|
I need 2 bars that are linked together and cannot be moved/splitted alone (moving one should move the two bars, like a « Group » of bars). How can I achieve that
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", );
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/5/2001 12:00:00 PM","1/7/2001","T1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,``,4) = 18");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/3/2001","1/4/2001 12:00:00 PM","T2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`T2`,33) = 255");
_ObjectCallMethod( items , "GroupBars", h1,"T1",-1,h1,"T2",-1,27,0);
_ObjectCallMethod( items , "AddItem", );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2252
|
How can I show the tooltip programmatically ( I want to be able to set the tooltip content dynamically just before the tooltip start to appear, not using the exBarTooltip )
// ToolTip event - Fired when the control prepares the object's tooltip.
FUNCTION g2anttEvents_ToolTip(OBJECT g2antt, INT Item, INT ColIndex, INT Visible, INT X, INT Y, INT CX, INT CY)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
_ObjectCallMethod( g2antt , "ShowToolTip", _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.BarFromPoint(-1,-1)"));
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Def");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(6) = `...`");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2010","1/5/2010","A","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2010","1/8/2010","B","B");
_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2010","1/11/2010","C","C");
_ObjectCallMethod( items , "GroupBars", h,"A",0,h,"B",-1,39);
_ObjectCallMethod( items , "GroupBars", h,"B",0,h,"C",-1,39);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2251
|
I'd like to move itembars from one item to another, using .Chart.Bars("Task").Def(exBarCanMoveToAnother) = True this works for any new bar. The question is how can I specify this feature for bars already created
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 32);
_ObjectSetProperty( g2antt , "DrawGridLines", -2);
_ObjectSetProperty( g2antt , "GridLineStyle", 512);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "DrawGridLines", -2);
_ObjectSetProperty( chart , "GridLineStyle", 512);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "OverlaidType", 4);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `only horizontal`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(59) = 18");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(28) = True");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/3/2001","1/5/2001","A");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/4/2001","1/6/2001","B");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"Task","1/3/2001","1/5/2001","C");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,28) = False");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2250
|
I'd like to move itembars from one item to another, using .Chart.Bars("Task").Def(exBarCanMoveToAnother) = True this works for any new bar. The question is can I disable this for particular item-bars
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 32);
_ObjectSetProperty( g2antt , "DrawGridLines", -2);
_ObjectSetProperty( g2antt , "GridLineStyle", 512);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "DrawGridLines", -2);
_ObjectSetProperty( chart , "GridLineStyle", 512);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "OverlaidType", 4);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `anywhere`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(59) = 18");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(28) = True");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/3/2001","1/5/2001","A");
h = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2001","1/6/2001","B","only horiontal");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,28) = False");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"Task","1/3/2001","1/5/2001","C");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2249
|
I need the top row to display months, while the second to show units in weeks, but can 10 by 10 days days. Is it possible
OBJECT chart,g2antt,level;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "DrawGridLines", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "UnitWidth", 30);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).Unit = 16");
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "Unit", 4096);
_ObjectSetProperty( level , "Count", 10);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2248
|
Limit the chart's margins when using the CopyTo method
OBJECT chart,column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Tasks");
column = _ObjectCallMethod( columns , "Add", "Start");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 1");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
column = _ObjectCallMethod( columns , "Add", "End");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 2");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 196");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "ShowEmptyBars", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2009");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2009","1/7/2009");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/4/2009","1/9/2009");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "StartPrintDate", "1/4/2009");
_ObjectSetProperty( chart , "EndPrintDate", "1/5/2009");
var_CopyTo = _ObjectCallMethod(g2antt, "ExecuteTemplate", "CopyTo(`c:/temp/xtest.pdf`)");
Message( "Look for C:\Temp\xtest.pdf file." );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2247
|
I want to always keep the bottom item stationary. It can always display even when scrolling vertically. The bar placed at the bottom item is must be movable to other items
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
color = 15790320;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "Debug", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
_ObjectSetProperty( g2antt , "ShowLockedItems", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/31/2015");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(28) = True");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 3");
h = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(h) = color");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Me.Chart.ItemBackColor(h) = color");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,0) = `locked-top 1`");
_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2016","1/8/2016","T1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
h = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.LockedItem(0,1)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(h) = color");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Me.Chart.ItemBackColor(h) = color");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,0) = `locked-top 2`");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2016","1/9/2016","T2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
h = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.LockedItem(0,2)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h) = False");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHeight(h) = 2");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "un-locked item 1"),"Task","1/4/2016","1/8/2016","T3");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "un-locked item 2"),"Task","1/5/2016","1/9/2016","T4");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.LockedItemCount(1) = 3");
h = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.LockedItem(1,0)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h) = False");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHeight(h) = 2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
h = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.LockedItem(1,1)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(h) = color");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Me.Chart.ItemBackColor(h) = color");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,0) = `locked-bottom 1`");
_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2016","1/8/2016","T5");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
h = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.LockedItem(1,2)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(h) = color");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Me.Chart.ItemBackColor(h) = color");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,0) = `locked-bottom 2`");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2016","1/9/2016","T6");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2246
|
How can I get a cell that shows the sum of a column of minutes in hours + minutes format
OBJECT column,editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Minutes");
_ObjectSetProperty( column , "SortType", 1);
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 1);
_ObjectSetProperty( editor , "Numeric", -1);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", 10);
_ObjectCallMethod( items , "AddItem", 20);
_ObjectCallMethod( items , "AddItem", 30);
_ObjectCallMethod( items , "AddItem", 40);
_ObjectCallMethod( items , "AddItem", 50);
h = _ObjectCallMethod( items , "AddItem", "sum(all,dir,dbl(%0))");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 5");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `'<b>HH:NN</b>: '+ (int(value/60) lpad '00') + ':' + ((value mod 60) lpad '00')`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2245
|
Ensure that a bar fits the chart's visible area (unique keys)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "3/26/2023");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task A"),"Task","1/2/2001","1/12/2001","T1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task B"),"Task","1/20/2001","1/31/2001","T2");
_ObjectCallMethod( items , "EnsureVisibleBar", 0,"T1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2244
|
Ensure that a bar fits the chart's visible area
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "3/26/2023");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task A");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/12/2001","T1");
h2 = _ObjectCallMethod( items , "AddItem", "Task B");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/20/2001","1/31/2001","T2");
_ObjectCallMethod( items , "EnsureVisibleBar", h1,"T1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2243
|
Is it possible to change the visual appearance for the frame to create newly bar by drag and drop
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(188) = 16777216");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(189) = 15");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Color", 16777216);
_ObjectSetProperty( bar , "Height", 15);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/7/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/6/2001","1/14/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2242
|
Highlight the match once the filter is applied
// FilterChange event - Occurs when the filter was changed.
FUNCTION g2anttEvents_FilterChange()
format = _ObjectCallMethod( g2antt , "FormatABC", "`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",_ObjectGetProperty( g2antt , "FilterBarPromptPattern"));
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(0).FormatColumn = format");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(1).FormatColumn = format");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(2).FormatColumn = format");
END
OBJECT column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SelBackColor", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "SelForeColor", _ObjectGetProperty( g2antt , "ForeColor"));
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectSetProperty( g2antt , "ContinueColumnScroll", 0);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "SearchColumnIndex", 1);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
_ObjectSetProperty( g2antt , "HeaderHeight", 23);
_ObjectSetProperty( g2antt , "BackColorLevelHeader", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "FilterBarCaption", "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)");
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", 2055);
_ObjectSetProperty( g2antt , "FilterBarBackColor", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "and");
columns = _ObjectGetProperty( g2antt , "Columns");
column = _ObjectCallMethod( columns , "Add", "Name");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "lower(value)");
column = _ObjectCallMethod( columns , "Add", "Title");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "lower(value)");
column = _ObjectCallMethod( columns , "Add", "City");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "lower(value)");
items = _ObjectGetProperty( g2antt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h0)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Tacoma`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h0) = 1");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Manager`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Sales Representative`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h0,2) = `London`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2241
|
The count of filtered items includes the group-parents. How can I exclude them from count
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DrawGridLines", 2);
_ObjectSetProperty( g2antt , "HeaderAppearance", 1);
_ObjectSetProperty( g2antt , "HeaderHeight", 24);
_ObjectSetProperty( g2antt , "SortBarHeight", 28);
_ObjectSetProperty( g2antt , "SortBarVisible", -1);
_ObjectSetProperty( g2antt , "AllowGroupBy", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Col 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Col 2");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`219 Smith`),1) = `Ignacio 1234`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`1666 County Road 309A`),1) = `897 Manassa`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`38 Lone Pine`),1) = `Durango 11`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`612 Jachim Street`),1) = `Lamar 222`");
_ObjectSetProperty( g2antt , "Layout", "MultipleSort=^"C1:1^"");
_ObjectSetProperty( g2antt , "FilterBarCaption", "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? leafitemcount + ` result(s)` : ``)");
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", 2055);
_ObjectSetProperty( g2antt , "FilterBarPromptType", 257);
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "12");
_ObjectSetProperty( g2antt , "FilterBarBackColor", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2240
|
Is it possible to display the count of filtered items
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DrawGridLines", 2);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
_ObjectSetProperty( g2antt , "HeaderHeight", 24);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Col 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Col 2");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`219 Smith`),1) = `Ignacio 1234`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`1666 County Road 309A`),1) = `897 Manassa`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`38 Lone Pine`),1) = `Durango 11`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(`612 Jachim Street`),1) = `Lamar 222`");
_ObjectSetProperty( g2antt , "FilterBarCaption", "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)");
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", 2055);
_ObjectSetProperty( g2antt , "FilterBarPromptType", 257);
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "12");
_ObjectSetProperty( g2antt , "FilterBarBackColor", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2239
|
ADOR, MDB (JET)
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", Item)
_ObjectCallMethod( items , "AddBar", Item,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,2)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,4)"));
END
OBJECT chart,g2antt,rs;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",3,3);
_ObjectSetProperty( g2antt , "DataSource", rs);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/4/1994");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(2).Def(18) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(4).Def(18) = 2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2238
|
exOverlaidBarsOffset + exOverlaidBarTransparent + exBarCanMoveToAnother
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 22);
_ObjectSetProperty( g2antt , "DrawGridLines", -2);
_ObjectSetProperty( g2antt , "GridLineStyle", 512);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "DrawGridLines", -2);
_ObjectSetProperty( chart , "GridLineStyle", 512);
_ObjectSetProperty( chart , "ResizeUnitScale", 65536);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "OverlaidType", 257);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Overlaid(256) = 70");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(28) = True");
_ObjectSetProperty( g2antt , "ItemsAllowSizing", -1);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectableItem(AddItem()) = False");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","A1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/5/2001","A2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2001","1/7/2001","A3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHeight(h) = 64");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/7/2001","1/10/2001","A4");
_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/12/2001","A5");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectableItem(AddItem()) = False");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2237
|
Editors (ImageSize = 32)
OBJECT appearance,combobox,editor,g2antt,items,rs;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ImageSize", 32);
_ObjectSetProperty( g2antt , "DefaultItemHeight", 36);
_ObjectSetProperty( g2antt , "HeaderHeight", _ObjectGetProperty( g2antt , "DefaultItemHeight"));
_ObjectSetProperty( g2antt , "SortBarHeight", _ObjectGetProperty( g2antt , "DefaultItemHeight"));
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Font") , "Size", 16);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "FilterBarFont") , "Size", _ObjectGetProperty( _ObjectGetProperty( g2antt , "Font") , "Size"));
_ObjectSetProperty( _ObjectGetProperty( g2antt , "ToolTipFont") , "Size", _ObjectGetProperty( _ObjectGetProperty( g2antt , "Font") , "Size"));
_ObjectSetProperty( g2antt , "Indent", 26);
_ObjectCallMethod( g2antt , "Images", "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" +
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" +
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" +
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" +
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" +
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" +
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" +
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" +
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" +
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" +
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" +
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" +
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" +
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" +
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" +
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" +
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" +
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" +
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" +
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" +
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" +
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" +
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" +
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" +
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" +
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" +
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" +
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" +
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" +
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" +
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" +
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" +
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" +
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" +
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" +
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" +
"gRBCCQAgQEA==");
_ObjectCallMethod( appearance , "Add", 3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" +
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" +
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" +
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" +
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" +
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" +
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" +
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" +
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" +
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" +
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" +
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" +
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" +
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" +
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" +
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=");
_ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==");
_ObjectSetProperty( g2antt , "BackColorHeader", 80135878);
_ObjectSetProperty( g2antt , "SelBackColor", 67108864);
_ObjectSetProperty( g2antt , "SelForeColor", 65536);
_ObjectSetProperty( g2antt , "ShowFocusRect", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "CheckImage(0) = 16777216");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "CheckImage(1) = 33554432");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "CheckImage(2) = 50331648");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Editors`).Def(17) = 1");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(ReadOnly)`),0).EditType = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(EditType)`),0).EditType = 1");
h = _ObjectCallMethod( items , "AddItem", "Value 1");
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 2);
_ObjectCallMethod( editor , "AddItem", 1,"Value 1",1);
_ObjectCallMethod( editor , "AddItem", 2,"Value 2",2);
_ObjectCallMethod( editor , "AddItem", 3,"Value 3",3);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownType)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller",2);
_ObjectCallMethod( editor , "AddItem", 3,"Janet Leverling",3);
_ObjectCallMethod( editor , "AddItem", 4,"Peacock Margaret",3);
_ObjectCallMethod( editor , "AddItem", 5,"Steven Buchanan",2);
_ObjectCallMethod( editor , "AddItem", 6,"Michael Suyama",1);
_ObjectCallMethod( editor , "AddItem", 7,"Robert King",2);
_ObjectCallMethod( editor , "AddItem", 8,"Laura Callahan",3);
_ObjectCallMethod( editor , "AddItem", 9,"Anne Dodsworth",2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - single column list)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller",2);
_ObjectCallMethod( editor , "InsertItem", 3,"Janet Leverling",3,2);
_ObjectCallMethod( editor , "InsertItem", 4,"Peacock Margaret",3,2);
_ObjectCallMethod( editor , "InsertItem", 5,"Steven Buchanan",2,2);
_ObjectCallMethod( editor , "InsertItem", 6,"Michael Suyama",1,5);
_ObjectCallMethod( editor , "InsertItem", 7,"Robert King",2,2);
_ObjectCallMethod( editor , "InsertItem", 8,"Laura Callahan",3,2);
_ObjectCallMethod( editor , "InsertItem", 9,"Anne Dodsworth",2,5);
_ObjectCallMethod( editor , "ExpandAll");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - single column tree)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(57) = `Name¦Title¦City¦Phone`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(58) = `312¦¦¦96`");
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2);
_ObjectCallMethod( editor , "AddItem", 3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3);
_ObjectCallMethod( editor , "AddItem", 4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3);
_ObjectCallMethod( editor , "AddItem", 5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2);
_ObjectCallMethod( editor , "AddItem", 6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1);
_ObjectCallMethod( editor , "AddItem", 7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2);
_ObjectCallMethod( editor , "AddItem", 8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3);
_ObjectCallMethod( editor , "AddItem", 9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - multiple columns list)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(57) = `Name¦Title¦City¦Phone`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(58) = `312¦¦¦96`");
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2);
_ObjectCallMethod( editor , "InsertItem", 3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2);
_ObjectCallMethod( editor , "InsertItem", 4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2);
_ObjectCallMethod( editor , "InsertItem", 5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2);
_ObjectCallMethod( editor , "InsertItem", 6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5);
_ObjectCallMethod( editor , "InsertItem", 7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2);
_ObjectCallMethod( editor , "InsertItem", 8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2);
_ObjectCallMethod( editor , "InsertItem", 9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5);
_ObjectCallMethod( editor , "ExpandAll");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - multiple columns tree)'`");
h = _ObjectCallMethod( items , "AddItem", 100);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 4");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (SpinType)'`");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(MemoType)`),0).EditType = 5");
h = _ObjectCallMethod( items , "AddItem", 3);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 6);
_ObjectCallMethod( editor , "AddItem", 1,"Border",1);
_ObjectCallMethod( editor , "AddItem", 2,"Single",2);
_ObjectCallMethod( editor , "AddItem", 4,"Frame",3);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (CheckListType)'`");
h = _ObjectCallMethod( items , "AddItem", "193.226.40.161");
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "Mask", "{0,255}.{0,255}.{0,255}.{0,255}");
_ObjectSetProperty( editor , "EditType", 8);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (MaskType)'`");
h = _ObjectCallMethod( items , "AddItem", 65280);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 9);
_ObjectSetProperty( editor , "Mask", "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (ColorType)'`");
h = _ObjectCallMethod( items , "AddItem", "Tahoma");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 10");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (FontType)'`");
h = _ObjectCallMethod( items , "AddItem", "gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWam" +
"YyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDA" +
"wBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQ" +
"G4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYAB" +
"GQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyC" +
"AAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATF" +
"ASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CA" +
"JDQNg/p4AAdoC");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 11");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (PictureType)'`");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(ButtonType)`),0).EditType = 12");
h = _ObjectCallMethod( items , "AddItem", 25);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 13");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (ProgressBarType)'`");
h = _ObjectCallMethod( items , "AddItem", "Value 1");
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 14);
_ObjectCallMethod( editor , "AddItem", 1,"Value 1",1);
_ObjectCallMethod( editor , "AddItem", 2,"Value 2",2);
_ObjectCallMethod( editor , "AddItem", 3,"Value 3",3);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (PickEditType)'`");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(LinkEditType)`),0).EditType = 15");
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(UserEditorType)`),0)");
_ObjectSetProperty( editor , "EditType", 16);
_ObjectCallMethod( editor , "UserEditor", "Exontrol.ComboBox","");
combobox = _ObjectGetProperty( editor , "UserEditorObject");
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "LabelHeight", _ObjectGetProperty( g2antt , "DefaultItemHeight"));
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( combobox , "DataSource", rs);
_ObjectSetProperty( combobox , "MinHeightList", 128);
_ObjectSetProperty( combobox , "SearchColumnIndex", 0);
_ObjectSetProperty( combobox , "UseTabKey", 0);
_ObjectCallMethod( combobox , "EndUpdate");
h = _ObjectCallMethod( items , "AddItem", 255);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 17);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(4) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (ColorListType)'`");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(65280),0).EditType = 17");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(MemoDropDownType)`),0).EditType = 18");
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(-1),0)");
_ObjectSetProperty( editor , "EditType", 19);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(17) = 1");
h = _ObjectCallMethod( items , "AddItem", 50);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 20);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(41) = -60");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(53) = 10");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(63) = 2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (SliderType)'`");
h = _ObjectCallMethod( items , "AddItem", 100);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 21");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (CalculatorType)'`");
_ObjectCallMethod( items , "EnsureVisibleItem", h);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2236
|
Editors (ImageSize = 16, default)
OBJECT appearance,combobox,editor,g2antt,items,rs;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ImageSize", 16);
_ObjectCallMethod( g2antt , "Images", "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" +
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" +
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" +
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" +
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Editors`).Def(17) = 1");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(ReadOnly)`),0).EditType = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(EditType)`),0).EditType = 1");
h = _ObjectCallMethod( items , "AddItem", "Value 1");
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 2);
_ObjectCallMethod( editor , "AddItem", 1,"Value 1",1);
_ObjectCallMethod( editor , "AddItem", 2,"Value 2",2);
_ObjectCallMethod( editor , "AddItem", 3,"Value 3",3);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownType)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller",2);
_ObjectCallMethod( editor , "AddItem", 3,"Janet Leverling",3);
_ObjectCallMethod( editor , "AddItem", 4,"Peacock Margaret",3);
_ObjectCallMethod( editor , "AddItem", 5,"Steven Buchanan",2);
_ObjectCallMethod( editor , "AddItem", 6,"Michael Suyama",1);
_ObjectCallMethod( editor , "AddItem", 7,"Robert King",2);
_ObjectCallMethod( editor , "AddItem", 8,"Laura Callahan",3);
_ObjectCallMethod( editor , "AddItem", 9,"Anne Dodsworth",2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - single column list)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller",2);
_ObjectCallMethod( editor , "InsertItem", 3,"Janet Leverling",3,2);
_ObjectCallMethod( editor , "InsertItem", 4,"Peacock Margaret",3,2);
_ObjectCallMethod( editor , "InsertItem", 5,"Steven Buchanan",2,2);
_ObjectCallMethod( editor , "InsertItem", 6,"Michael Suyama",1,5);
_ObjectCallMethod( editor , "InsertItem", 7,"Robert King",2,2);
_ObjectCallMethod( editor , "InsertItem", 8,"Laura Callahan",3,2);
_ObjectCallMethod( editor , "InsertItem", 9,"Anne Dodsworth",2,5);
_ObjectCallMethod( editor , "ExpandAll");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - single column tree)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(57) = `Name¦Title¦City¦Phone`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(58) = `312¦¦¦96`");
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2);
_ObjectCallMethod( editor , "AddItem", 3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3);
_ObjectCallMethod( editor , "AddItem", 4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3);
_ObjectCallMethod( editor , "AddItem", 5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2);
_ObjectCallMethod( editor , "AddItem", 6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1);
_ObjectCallMethod( editor , "AddItem", 7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2);
_ObjectCallMethod( editor , "AddItem", 8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3);
_ObjectCallMethod( editor , "AddItem", 9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - multiple columns list)'`");
h = _ObjectCallMethod( items , "AddItem", 1);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectSetProperty( editor , "DropDownAutoWidth", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(57) = `Name¦Title¦City¦Phone`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(58) = `312¦¦¦96`");
_ObjectCallMethod( editor , "AddItem", 1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1);
_ObjectCallMethod( editor , "AddItem", 2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2);
_ObjectCallMethod( editor , "InsertItem", 3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2);
_ObjectCallMethod( editor , "InsertItem", 4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2);
_ObjectCallMethod( editor , "InsertItem", 5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2);
_ObjectCallMethod( editor , "InsertItem", 6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5);
_ObjectCallMethod( editor , "InsertItem", 7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2);
_ObjectCallMethod( editor , "InsertItem", 8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2);
_ObjectCallMethod( editor , "InsertItem", 9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5);
_ObjectCallMethod( editor , "ExpandAll");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (DropDownList - multiple columns tree)'`");
h = _ObjectCallMethod( items , "AddItem", 100);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 4");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (SpinType)'`");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(MemoType)`),0).EditType = 5");
h = _ObjectCallMethod( items , "AddItem", 3);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 6);
_ObjectCallMethod( editor , "AddItem", 1,"Border",1);
_ObjectCallMethod( editor , "AddItem", 2,"Single",2);
_ObjectCallMethod( editor , "AddItem", 4,"Frame",3);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (CheckListType)'`");
h = _ObjectCallMethod( items , "AddItem", "193.226.40.161");
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "Mask", "{0,255}.{0,255}.{0,255}.{0,255}");
_ObjectSetProperty( editor , "EditType", 8);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (MaskType)'`");
h = _ObjectCallMethod( items , "AddItem", 65280);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 9);
_ObjectSetProperty( editor , "Mask", "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (ColorType)'`");
h = _ObjectCallMethod( items , "AddItem", "Tahoma");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 10");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (FontType)'`");
h = _ObjectCallMethod( items , "AddItem", "gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWam" +
"YyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDA" +
"wBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQ" +
"G4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYAB" +
"GQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyC" +
"AAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATF" +
"ASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CA" +
"JDQNg/p4AAdoC");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 11");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (PictureType)'`");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(ButtonType)`),0).EditType = 12");
h = _ObjectCallMethod( items , "AddItem", 25);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 13");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (ProgressBarType)'`");
h = _ObjectCallMethod( items , "AddItem", "Value 1");
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 14);
_ObjectCallMethod( editor , "AddItem", 1,"Value 1",1);
_ObjectCallMethod( editor , "AddItem", 2,"Value 2",2);
_ObjectCallMethod( editor , "AddItem", 3,"Value 3",3);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (PickEditType)'`");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(LinkEditType)`),0).EditType = 15");
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(UserEditorType)`),0)");
_ObjectSetProperty( editor , "EditType", 16);
_ObjectCallMethod( editor , "UserEditor", "Exontrol.ComboBox","");
combobox = _ObjectGetProperty( editor , "UserEditorObject");
_ObjectCallMethod( combobox , "BeginUpdate");
_ObjectSetProperty( combobox , "LabelHeight", _ObjectGetProperty( g2antt , "DefaultItemHeight"));
_ObjectSetProperty( combobox , "Style", 2);
_ObjectSetProperty( combobox , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( combobox , "DataSource", rs);
_ObjectSetProperty( combobox , "MinHeightList", 128);
_ObjectSetProperty( combobox , "SearchColumnIndex", 0);
_ObjectSetProperty( combobox , "UseTabKey", 0);
_ObjectCallMethod( combobox , "EndUpdate");
h = _ObjectCallMethod( items , "AddItem", 255);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 17);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(4) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (ColorListType)'`");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(65280),0).EditType = 17");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(`(MemoDropDownType)`),0).EditType = 18");
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(AddItem(-1),0)");
_ObjectSetProperty( editor , "EditType", 19);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(17) = 1");
h = _ObjectCallMethod( items , "AddItem", 50);
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0)");
_ObjectSetProperty( editor , "EditType", 20);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(41) = -60");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(53) = 10");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(63) = 2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (SliderType)'`");
h = _ObjectCallMethod( items , "AddItem", 100);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h,0).EditType = 21");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.FormatCell(h,0) = `value + ' (CalculatorType)'`");
_ObjectCallMethod( items , "EnsureVisibleItem", h);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2235
|
Is it possible to limit the overlaid to two rows only
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectSetProperty( chart , "FirstVisibleDate", "9/17/2006");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).OverlaidType = 4");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h1,"Task","9/26/2006","10/6/2006","K1","K1");
_ObjectCallMethod( items , "AddBar", h1,"Task","10/5/2006","10/10/2006","K3","K2");
_ObjectCallMethod( items , "AddBar", h1,"Task","9/21/2006","9/27/2006","T1","T");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<T*>`,33) = 65280");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<K*>`,52) = `Level0`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<T*>`,52) = `Level1`");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemMaxHeight(h1) = 26");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2234
|
Is it possible to sort the bars
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "AntiAliasing", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task") , "AllowSort", 0);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Name");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 0");
_ObjectSetProperty( column , "SortType", 0);
_ObjectSetProperty( column , "Visible", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/31/2000");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","Red") , "Color", 255);
_ObjectSetProperty( chart , "NonworkingDaysPattern", 6);
_ObjectSetProperty( chart , "NonworkingDaysColor", 14737632);
_ObjectSetProperty( chart , "LinksStyle", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Red","1/2/2001","1/5/2001");
h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h3,"Task","1/2/2001","1/5/2001");
h4 = _ObjectCallMethod( items , "AddItem", "Task 4");
_ObjectCallMethod( items , "AddBar", h4,"Red","1/2/2001","1/5/2001");
h5 = _ObjectCallMethod( items , "AddItem", "Task 5");
_ObjectCallMethod( items , "AddBar", h5,"Red","1/2/2001","1/5/2001");
_ObjectCallMethod( items , "AddLink", "L1",h1,"",h3,"");
_ObjectCallMethod( items , "AddLink", "L2",h2,"",h4,"");
_ObjectCallMethod( items , "AddLink", "L3",h3,"",h4,"");
_ObjectCallMethod( items , "AddLink", "L4",h4,"",h5,"");
_ObjectCallMethod( items , "SchedulePDM", 0,"");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "ShowLinks", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(`Name`).SortOrder = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2233
|
Re-order the cell's caption, icons and images/pictures
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( g2antt , "Images", "gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" +
"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "ToLeft");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "ToRight");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(34) = `caption,picture,icons,icon,check`");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 32);
_ObjectSetProperty( g2antt , "DrawGridLines", 2);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Caption");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImage(h,0) = 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImages(h,0) = `1,2`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellPicture(h,0) = Me.ExecuteTemplate(`loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)`)");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = CellValue(h,0)");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHAlignment(h,1) = 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImage(h,1) = CellImage(h,0)");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImages(h,1) = `2,1`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellPicture(h,1) = CellPicture(h,0)");
h = _ObjectCallMethod( items , "AddItem", "<b>HTML</b> <off 4>Caption");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImage(h,0) = 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImages(h,0) = `1,2`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellPicture(h,0) = Me.ExecuteTemplate(`loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)`)");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = CellValue(h,0)");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHAlignment(h,1) = 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImage(h,1) = CellImage(h,0)");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImages(h,1) = `2,1`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellPicture(h,1) = CellPicture(h,0)");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2232
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
// AddColumn event - Fired after a new column has been added.
FUNCTION g2anttEvents_AddColumn(OBJECT g2antt, OBJECT Column)
' Column.Def(48) = 2
' Column.Def(49) = 2
END
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddBar", Item,"Task","1/2/2022","1/8/2022","","<img>1</img>");
END
OBJECT appearance,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ImageSize", 32);
_ObjectSetProperty( g2antt , "DefaultItemHeight", 36);
_ObjectSetProperty( g2antt , "HeaderHeight", _ObjectGetProperty( g2antt , "DefaultItemHeight"));
_ObjectSetProperty( g2antt , "SortBarHeight", _ObjectGetProperty( g2antt , "DefaultItemHeight"));
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Font") , "Size", 16);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "FilterBarFont") , "Size", _ObjectGetProperty( _ObjectGetProperty( g2antt , "Font") , "Size"));
_ObjectSetProperty( _ObjectGetProperty( g2antt , "ToolTipFont") , "Size", _ObjectGetProperty( _ObjectGetProperty( g2antt , "Font") , "Size"));
_ObjectSetProperty( g2antt , "Indent", 26);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2022");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Height = 22");
_ObjectCallMethod( g2antt , "Images", "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" +
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" +
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" +
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" +
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" +
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" +
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" +
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" +
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" +
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" +
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" +
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" +
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" +
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" +
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" +
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" +
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" +
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" +
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" +
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" +
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" +
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" +
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" +
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" +
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" +
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" +
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" +
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" +
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" +
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" +
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" +
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" +
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" +
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" +
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" +
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" +
"gRBCCQAgQEA==");
_ObjectCallMethod( appearance , "Add", 3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj" +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" +
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" +
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" +
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" +
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" +
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" +
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" +
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" +
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" +
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" +
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" +
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" +
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" +
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" +
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" +
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=");
_ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==");
_ObjectSetProperty( g2antt , "BackColorHeader", 80135878);
_ObjectSetProperty( g2antt , "SelBackColor", 67108864);
_ObjectSetProperty( g2antt , "SelForeColor", 65536);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "CheckImage(0) = 16777216");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "CheckImage(1) = 33554432");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "CheckImage(2) = 50331648");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(20) = SelBackColor");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(21) = SelForeColor");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(26) = BackColor");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(27) = ForeColor");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(32) = -1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(0) = 67108864");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(41) = 67174657");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(1) = 67109119");
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
_ObjectSetProperty( g2antt , "ShowFocusRect", 0);
_ObjectSetProperty( g2antt , "SortBarVisible", -1);
_ObjectSetProperty( g2antt , "AllowGroupBy", -1);
_ObjectSetProperty( g2antt , "BackColorSortBar", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "BackColorLevelHeader", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "FilterBarDropDownHeight", 1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Check");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( column , "Width", 128);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 256);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "FormatColumn", "1 pos ``");
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Alignment", 1);
_ObjectSetProperty( column , "HeaderAlignment", 1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Image");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 8480);
_ObjectSetProperty( column , "FilterType", 10);
_ObjectSetProperty( column , "DisplayExpandButton", -1);
_ObjectSetProperty( column , "ExpandColumns", "1,2,3");
_ObjectSetProperty( column , "Width", 128);
_ObjectSetProperty( column , "HeaderImage", 1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Images");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Width", 196);
_ObjectSetProperty( column , "HTMLCaption", "<img>1</img><img>2</img><img>3</img> Images");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(`Pos`).Position = 3");
items = _ObjectGetProperty( g2antt , "Items");
hR = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hR)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemDivider(hR) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemDividerLine(hR) = 0");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child A");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImage(h,2) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImages(h,3) = `1,2,3`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,3) = `123`");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child B");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImage(h,2) = 3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImages(h,3) = `2,3,1`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,3) = `231`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child C");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImage(h,2) = 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,3) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,3) = `312`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImages(h,3) = `3,1,2`");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hR)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(hR) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2231
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
// AddColumn event - Fired after a new column has been added.
FUNCTION g2anttEvents_AddColumn(OBJECT g2antt, OBJECT Column)
' Column.Def(48) = 2
' Column.Def(49) = 2
END
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddBar", Item,"Task","1/2/2022","1/8/2022","","<img>1</img>");
END
OBJECT appearance,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2022");
_ObjectSetProperty( g2antt , "ImageSize", 16);
_ObjectCallMethod( g2antt , "Images", "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" +
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" +
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" +
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" +
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH" +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==");
_ObjectSetProperty( g2antt , "BackColorHeader", 80135878);
_ObjectSetProperty( g2antt , "SelBackColor", 67108864);
_ObjectSetProperty( g2antt , "SelForeColor", 65536);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(20) = SelBackColor");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(21) = SelForeColor");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(26) = BackColor");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(27) = ForeColor");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(32) = -1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(0) = 67108864");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(41) = 67174657");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(1) = 67109119");
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
_ObjectSetProperty( g2antt , "ShowFocusRect", 0);
_ObjectSetProperty( g2antt , "SortBarVisible", -1);
_ObjectSetProperty( g2antt , "AllowGroupBy", -1);
_ObjectSetProperty( g2antt , "BackColorSortBar", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "BackColorLevelHeader", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "FilterBarDropDownHeight", 1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Check");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( column , "Width", 128);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 256);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "FormatColumn", "1 pos ``");
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Alignment", 1);
_ObjectSetProperty( column , "HeaderAlignment", 1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Image");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 8480);
_ObjectSetProperty( column , "FilterType", 10);
_ObjectSetProperty( column , "DisplayExpandButton", -1);
_ObjectSetProperty( column , "ExpandColumns", "1,2,3");
_ObjectSetProperty( column , "Width", 128);
_ObjectSetProperty( column , "HeaderImage", 1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Images");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Width", 196);
_ObjectSetProperty( column , "HTMLCaption", "<img>1</img><img>2</img><img>3</img> Images");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(`Pos`).Position = 3");
items = _ObjectGetProperty( g2antt , "Items");
hR = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hR)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemDivider(hR) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemDividerLine(hR) = 0");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child A");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImage(h,2) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImages(h,3) = `1,2,3`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,3) = `123`");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child B");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImage(h,2) = 3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImages(h,3) = `2,3,1`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,3) = `231`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Child C");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImage(h,2) = 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,3) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,3) = `312`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImages(h,3) = `3,1,2`");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hR)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(hR) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2230
|
How do I clip/hide/align the bar's caption/text based on the bar's size/width/length
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Clip");
_ObjectSetProperty( g2antt , "ScrollBySingleLine", -1);
_ObjectSetProperty( g2antt , "DrawGridLines", -2);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowResizeChart", 6);
_ObjectSetProperty( chart , "DrawGridLines", -2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/23/2000");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 216");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Pattern", 32);
_ObjectSetProperty( bar , "Color", 10790052);
_ObjectSetProperty( bar , "StartColor", 15790320);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "OverlaidType", 4611);
_ObjectSetProperty( bar , "Height", 15);
_ObjectSetProperty( chart , "MinUnitWidth", _ObjectGetProperty( chart , "UnitWidth"));
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "no clip, (0-2)");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,44) = `no clip, right(<b>2</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,45) = 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,44) = `no clip, center(<b>1</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,45) = 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,44) = `no clip, left(<b>0</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,45) = 0");
h = _ObjectCallMethod( items , "AddItem", "clip, inside (3-5)");
_ObjectCallMethod( items , "AddBar", h,"Task","12/28/2000","1/8/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,44) = `clip, inside, right(<b>5</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,45) = 5");
_ObjectCallMethod( items , "AddBar", h,"Task","12/28/2000","1/8/2001","K2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,44) = `clip, inside, center(<b>4</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,45) = 4");
_ObjectCallMethod( items , "AddBar", h,"Task","12/28/2000","1/8/2001","K3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,44) = `clip, inside, left(<b>3</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,45) = 3");
h = _ObjectCallMethod( items , "AddItem", "hide on min width, clip if not fit, inside (6-8)");
_ObjectCallMethod( items , "AddBar", h,"Task","12/26/2000","1/10/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,44) = `hide on min width, clip if not fit, inside, right(<b>8</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,45) = 8");
_ObjectCallMethod( items , "AddBar", h,"Task","12/26/2000","1/10/2001","K2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,44) = `hide on min width, clip if not fit, inside, center(<b>7</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,45) = 7");
_ObjectCallMethod( items , "AddBar", h,"Task","12/26/2000","1/10/2001","K3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,44) = `hide on min width, clip if not fit, inside, left(<b>6</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,45) = 6");
h = _ObjectCallMethod( items , "AddItem", "hide if not fit, no clip, inside (9-11)");
_ObjectCallMethod( items , "AddBar", h,"Task","12/28/2000","1/8/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,44) = `hide if not fit, no clip, inside, right(<b>11</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,45) = 11");
_ObjectCallMethod( items , "AddBar", h,"Task","12/28/2000","1/8/2001","K2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,44) = `hide if not fit, no clip, center(<b>10</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,45) = 10");
_ObjectCallMethod( items , "AddBar", h,"Task","12/28/2000","1/8/2001","K3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,44) = `hide if not fit, no clip, inside, left(<b>9</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,45) = 9");
h = _ObjectCallMethod( items , "AddItem", "no clip, inside, outside (12-14)");
_ObjectCallMethod( items , "AddBar", h,"Task","12/28/2000","1/8/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,44) = `no clip, inside, outside, right(<b>14</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,45) = 14");
_ObjectCallMethod( items , "AddBar", h,"Task","12/28/2000","1/8/2001","K2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,44) = `no clip, inside, outside, center(<b>13</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,45) = 13");
_ObjectCallMethod( items , "AddBar", h,"Task","12/28/2000","1/8/2001","K3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,44) = `no clip, inside, outside, left(<b>12</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,45) = 12");
h = _ObjectCallMethod( items , "AddItem", "no clip, outside (16-18)");
_ObjectCallMethod( items , "AddBar", h,"Task","12/30/2000","1/6/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,44) = `no clip, outside, right(<b>18</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,45) = 18");
_ObjectCallMethod( items , "AddBar", h,"Task","12/30/2000","1/6/2001","K2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,44) = `no clip, outside, center(<b>17</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,45) = 17");
_ObjectCallMethod( items , "AddBar", h,"Task","12/30/2000","1/6/2001","K3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,44) = `no clip, outside, left(<b>16</b>)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,45) = 16");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2229
|
The user clicks the drop-down filter, select a value and the control's list filters for the selected item(s). Is there a way for when the user then goes to the next column to add another filter and the drop down arrow is clicked for the list of values they can filter by to be limited to what is being displayed in the list due to the first filter they set
// AddColumn event - Fired after a new column has been added.
FUNCTION g2anttEvents_AddColumn(OBJECT g2antt, OBJECT Column)
OBJECT column;
column = Column;
END
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", Item)
_ObjectCallMethod( items , "AddBar", Item,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,2)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,4)"));
END
OBJECT chart,g2antt,rs;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( g2antt , "DataSource", rs);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/4/1994");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 290");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(2).Def(18) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(4).Def(18) = 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(`ShipVia`).Position = 2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2228
|
Does the control display images from database (DAO)
OBJECT column,createobject("dao.dbengine.36"),g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", 0);
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectSetProperty( g2antt , "GridLineStyle", 512);
_ObjectSetProperty( g2antt , "DefaultItemHeight", 48);
createobject("dao.dbengine.36") = CreateObject("DAO.DBEngine.36");
rs = _ObjectCallMethod( _ObjectCallMethod( createobject("dao.dbengine.36") , "OpenDatabase", "C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb") , "OpenRecordset", "Employees");
_ObjectSetProperty( g2antt , "DataSource", rs);
column = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(`Photo`)");
_ObjectSetProperty( column , "Position", 1);
_ObjectSetProperty( column , "Width", 128);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2227
|
Does the control display images from database (ADO)
OBJECT column,g2antt,rs;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", 0);
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
_ObjectSetProperty( g2antt , "GridLineStyle", 512);
_ObjectSetProperty( g2antt , "DefaultItemHeight", 48);
rs = CreateObject("ADODB.Recordset");
_ObjectCallMethod( rs , "Open", "Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( g2antt , "DataSource", rs);
column = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(`Photo`)");
_ObjectSetProperty( column , "Position", 1);
_ObjectSetProperty( column , "Width", 128);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2226
|
Is it possible to set from code, a column sort without being inserted in the sortbar
OBJECT g2antt,rs;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,3);
_ObjectSetProperty( g2antt , "DataSource", rs);
_ObjectSetProperty( g2antt , "SortBarVisible", -1);
_ObjectSetProperty( g2antt , "Layout", "singlesort=^"C1:1^"");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2225
|
Is it possible to view all events the control fires
// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
FUNCTION g2anttEvents_BeforeExpandItem(OBJECT g2antt, INT Item, VARIANT Cancel)
_ObjectCallMethod( g2antt , "Refresh");
END
// Event event - Notifies the application once the control fires an event.
FUNCTION g2anttEvents_Event(OBJECT g2antt, INT EventID)
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "EventParam(-2)") );
END
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "Indent", 16);
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectSetProperty( g2antt , "HasLines", 1);
_ObjectSetProperty( g2antt , "DrawGridLines", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
_ObjectSetProperty( chart , "ShowCollapsedBars", -1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 128");
_ObjectSetProperty( chart , "DrawGridLines", 1);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "OverlaidType", 3);
_ObjectSetProperty( bar , "Color", 0);
_ObjectSetProperty( bar , "StartColor", 12895428);
_ObjectSetProperty( bar , "EndColor", 12895428);
_ObjectSetProperty( bar , "Pattern", 32);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project 1");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Resources");
_ObjectCallMethod( items , "AddBar", h1,"Task","9/21/2006","9/25/2006","A");
_ObjectCallMethod( items , "AddBar", h1,"Task","9/24/2006","9/28/2006","B");
_ObjectCallMethod( items , "AddBar", h1,"Task","9/27/2006","9/29/2006","C");
h = _ObjectCallMethod( items , "AddItem", "Project 2");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Resources");
_ObjectCallMethod( items , "AddBar", h1,"Task","9/21/2006","9/25/2006","A");
_ObjectCallMethod( items , "AddBar", h1,"Task","9/24/2006","9/28/2006","B");
_ObjectCallMethod( items , "AddBar", h1,"Task","9/27/2006","9/29/2006","C");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2224
|
How can I find all occurences of the giving value, within a column
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Default");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "FormatColumn", "1 pos 'A-Z'");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "Enabled", 0);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Index");
_ObjectSetProperty( column , "FormatColumn", "0 index ''");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "Enabled", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "A");
_ObjectCallMethod( items , "AddItem", "A");
_ObjectCallMethod( items , "AddItem", "A");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellCaption(FindItem(`A`,0,0),1)") );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellCaption(FindItem(`A`,0,1),1)") );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellCaption(FindItem(`A`,0,2),1)") );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2223
|
How can I specify the bar's legend within the control's histogram (sample 2, expression)
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Machines");
_ObjectSetProperty( g2antt , "DrawGridLines", 1);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "DrawGridLines", 1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "LevelCount", 2);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Pattern", 1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
_ObjectSetProperty( bar , "OverlaidType", 4);
_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
_ObjectSetProperty( bar , "HistogramType", 256);
_ObjectSetProperty( bar , "HistogramCumulativeOriginalColorBars", 1);
_ObjectSetProperty( bar , "HistogramItems", -4);
_ObjectSetProperty( bar , "HistogramRulerLinesColor", 6710886);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(6) = `<%=%3%> <fgcolor 666666><font ;6><off 4><%=%C0%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(60) = `<fgcolor=666666><%=lower(%3)%>`");
_ObjectSetProperty( chart , "HistogramHeight", 64);
_ObjectSetProperty( chart , "HistogramVisible", -1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Machine 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/9/2001",1,"Bill");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/10/2001",2,"Laura");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,2,33) = 16776960");
h = _ObjectCallMethod( items , "AddItem", "Machine 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/12/2001","1/19/2001",3,"Bill");
_ObjectCallMethod( items , "AddBar", h,"Task","1/10/2001","1/13/2001",4,"Laura");
_ObjectCallMethod( items , "AddBar", h,"Task","1/10/2001","1/14/2001",5,"Bill");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,4,33) = 16776960");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Machine 3"),"Task","1/2/2001","1/9/2001",6,"Bill");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2222
|
How can I specify the bar's legend within the control's histogram (sample 1)
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Machines");
_ObjectSetProperty( g2antt , "DrawGridLines", 1);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "DrawGridLines", 1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "LevelCount", 2);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Pattern", 1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
_ObjectSetProperty( bar , "OverlaidType", 4);
_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
_ObjectSetProperty( bar , "HistogramType", 256);
_ObjectSetProperty( bar , "HistogramCumulativeOriginalColorBars", 1);
_ObjectSetProperty( bar , "HistogramItems", -4);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `Bill`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(60) = `B(ill)`");
_ObjectSetProperty( chart , "HistogramHeight", 64);
_ObjectSetProperty( chart , "HistogramVisible", -1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Machine 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/9/2001",1);
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/10/2001",2,"Laura");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,2,33) = 16776960");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,2,60) = `L(aura)`");
h = _ObjectCallMethod( items , "AddItem", "Machine 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/12/2001","1/19/2001",3);
_ObjectCallMethod( items , "AddBar", h,"Task","1/10/2001","1/13/2001",4,"Laura");
_ObjectCallMethod( items , "AddBar", h,"Task","1/10/2001","1/14/2001",5);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,4,33) = 16776960");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,4,60) = `L(aura)`");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Machine 3"),"Task","1/2/2001","1/9/2001",6);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2221
|
When I drag a bar and I drag it over other items, but just release it on one of the items (last item), the BarParentChange event is triggered for every item. I need it just when I drop it (release left mouse). How can I do this
// BarParentChange event - Occurs just before moving a bar from current item to another item.
FUNCTION g2anttEvents_BarParentChange(OBJECT g2antt, INT Item, VARIANT Key, INT NewItem, INT Cancel)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,NewItem")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
_ObjectCallMethod(g2antt, "TemplatePut", NewItem)
Message( "Hover Over Item: " );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.CellCaption(NewItem,0)") );
Cancel = _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.ItemData(NewItem)");
END
// ChartEndChanging event - Occurs after the chart has been changed.
FUNCTION g2anttEvents_ChartEndChanging(OBJECT g2antt, INT Operation)
Message( "ChartEndChanging " );
Message( Operation );
END
// ChartStartChanging event - Occurs when the chart is about to be changed.
FUNCTION g2anttEvents_ChartStartChanging(OBJECT g2antt, INT Operation)
Message( "ChartStartChanging " );
Message( Operation );
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).OverlaidType = 257");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.EnableItem(h) = False");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(h) = -1");
h = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(h) = 0");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","B");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,28) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(AddItem(`Item 3`)) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemData(AddItem(`Item 4`)) = 0");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2220
|
Hide non-working days, Hide non-working hours
OBJECT chart,g2antt,level;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "7/29/2022");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(65536) = `<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitWidth", 12);
_ObjectSetProperty( chart , "NonworkingDaysColor", 3355443);
_ObjectSetProperty( chart , "NonworkingDaysPattern", 6);
_ObjectSetProperty( chart , "NonworkingHoursColor", 12303291);
_ObjectSetProperty( chart , "NonworkingHoursPattern", 6);
_ObjectSetProperty( chart , "AllowResizeChart", 262);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<%dddd%>");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).Label = 65536");
_ObjectSetProperty( chart , "UnitScale", 65536);
_ObjectSetProperty( chart , "NonworkingHours", 16773375);
_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2219
|
Show non-working days pattern, Hide non-working hours
OBJECT chart,g2antt,level;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "7/29/2022");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(65536) = `<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitWidth", 12);
_ObjectSetProperty( chart , "NonworkingDaysColor", 3355443);
_ObjectSetProperty( chart , "NonworkingDaysPattern", 6);
_ObjectSetProperty( chart , "NonworkingHoursColor", 12303291);
_ObjectSetProperty( chart , "NonworkingHoursPattern", 6);
_ObjectSetProperty( chart , "AllowResizeChart", 262);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<%dddd%>");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).Label = 65536");
_ObjectSetProperty( chart , "UnitScale", 65536);
_ObjectSetProperty( chart , "NonworkingHours", 16773375);
_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
_ObjectSetProperty( chart , "ShowNonworkingDates", -1);
_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2218
|
Hide non-working days, Show non-working hours pattern
OBJECT chart,g2antt,level;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "7/29/2022");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(65536) = `<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitWidth", 12);
_ObjectSetProperty( chart , "NonworkingDaysColor", 3355443);
_ObjectSetProperty( chart , "NonworkingDaysPattern", 6);
_ObjectSetProperty( chart , "NonworkingHoursColor", 12303291);
_ObjectSetProperty( chart , "NonworkingHoursPattern", 6);
_ObjectSetProperty( chart , "AllowResizeChart", 262);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<%dddd%>");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).Label = 65536");
_ObjectSetProperty( chart , "UnitScale", 65536);
_ObjectSetProperty( chart , "NonworkingHours", 16773375);
_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "ShowNonworkingHours", -1);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2217
|
Hide non-working days pattern, Show non-working hours pattern
OBJECT chart,g2antt,level;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "7/29/2022");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(65536) = `<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitWidth", 12);
_ObjectSetProperty( chart , "NonworkingDaysColor", 3355443);
_ObjectSetProperty( chart , "NonworkingDaysPattern", 6);
_ObjectSetProperty( chart , "NonworkingHoursColor", 12303291);
_ObjectSetProperty( chart , "NonworkingHoursPattern", 6);
_ObjectSetProperty( chart , "AllowResizeChart", 262);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<%dddd%>");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).Label = 65536");
_ObjectSetProperty( chart , "UnitScale", 65536);
_ObjectSetProperty( chart , "NonworkingHours", 16773375);
_ObjectSetProperty( chart , "ShowNonworkingUnits", -1);
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "ShowNonworkingHours", -1);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2216
|
Hide non-working days pattern, Hide non-working hours pattern
OBJECT chart,g2antt,level;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "7/29/2022");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(65536) = `<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitWidth", 12);
_ObjectSetProperty( chart , "NonworkingDaysColor", 3355443);
_ObjectSetProperty( chart , "NonworkingDaysPattern", 6);
_ObjectSetProperty( chart , "NonworkingHoursColor", 12303291);
_ObjectSetProperty( chart , "NonworkingHoursPattern", 6);
_ObjectSetProperty( chart , "AllowResizeChart", 262);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<%dddd%>");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).Label = 65536");
_ObjectSetProperty( chart , "UnitScale", 65536);
_ObjectSetProperty( chart , "NonworkingHours", 16773375);
_ObjectSetProperty( chart , "ShowNonworkingUnits", -1);
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2215
|
Show non-working days pattern, Hide non-working hours pattern
OBJECT chart,g2antt,level;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "7/29/2022");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(65536) = `<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitWidth", 12);
_ObjectSetProperty( chart , "NonworkingDaysColor", 3355443);
_ObjectSetProperty( chart , "NonworkingDaysPattern", 6);
_ObjectSetProperty( chart , "NonworkingHoursColor", 12303291);
_ObjectSetProperty( chart , "NonworkingHoursPattern", 6);
_ObjectSetProperty( chart , "AllowResizeChart", 262);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<%dddd%>");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).Label = 65536");
_ObjectSetProperty( chart , "UnitScale", 65536);
_ObjectSetProperty( chart , "NonworkingHours", 16773375);
_ObjectSetProperty( chart , "ShowNonworkingUnits", -1);
_ObjectSetProperty( chart , "ShowNonworkingDates", -1);
_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2214
|
Show non-working days pattern, Show non-working hours pattern
OBJECT chart,g2antt,level;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "7/29/2022");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(65536) = `<font ;6><%h%><|><font ;6><%hh%><|><%h%> <%AM/PM%><|><%d3%>, <%m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitWidth", 12);
_ObjectSetProperty( chart , "NonworkingDaysColor", 3355443);
_ObjectSetProperty( chart , "NonworkingDaysPattern", 6);
_ObjectSetProperty( chart , "NonworkingHoursColor", 12303291);
_ObjectSetProperty( chart , "NonworkingHoursPattern", 6);
_ObjectSetProperty( chart , "AllowResizeChart", 262);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<%dddd%>");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).Label = 65536");
_ObjectSetProperty( chart , "UnitScale", 65536);
_ObjectSetProperty( chart , "NonworkingHours", 16773375);
_ObjectSetProperty( chart , "ShowNonworkingUnits", -1);
_ObjectSetProperty( chart , "ShowNonworkingDates", -1);
_ObjectSetProperty( chart , "ShowNonworkingHours", -1);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2213
|
The chart display no labels (empty header) when the unit's width is too small. What can I do to change this behavior
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(4096) = `<font ;6><%d1%><|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%>, <%m3%> <%d%>, '<%yy%><|><%dddd%>, <%mmmm%> <%d%>, <%yyyy%><||><||>4096`");
_ObjectSetProperty( chart , "AllowResizeChart", 262);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "MarkTodayColor", _ObjectGetProperty( chart , "BackColor"));
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectSetProperty( chart , "UnitWidth", 12);
|
|
2212
|
How do I get the height of the bar from the cursor
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
b = _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.BarFromPoint(-1,-1)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(g2antt, "TemplatePut", c)
_ObjectCallMethod(g2antt, "TemplatePut", hit)
i = _ObjectCallMethod(g2antt, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,b,i")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
_ObjectCallMethod(g2antt, "TemplatePut", b)
_ObjectCallMethod(g2antt, "TemplatePut", i)
n = _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.ItemBar(i,b,0)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,n")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
_ObjectCallMethod(g2antt, "TemplatePut", n)
Message( "Height" );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.Bars.Item(n).Height") );
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 52);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "10/10/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectSetProperty( chart , "MarkTodayColor", _ObjectGetProperty( chart , "BackColor"));
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","T1") , "Color", 255);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","T2") , "Height", 25);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h1,"T1","10/15/2017","10/25/2017","2");
_ObjectCallMethod( items , "AddBar", h1,"T2","10/18/2017","10/22/2017","1");
h1 = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h1,"T1","10/15/2017","10/25/2017","1");
_ObjectCallMethod( items , "AddBar", h1,"T2","10/18/2017","10/22/2017","2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2211
|
The zone shows truncated if I use BackColorAlternate. Is there anything I can do so it shows as solid instead
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "BackColorAlternate", 15790320);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
_ObjectCallMethod( chart , "MarkTimeZone", "Z1","1/4/2010","1/4/2010",16744544,"1:3;;solid-zone");
_ObjectCallMethod( chart , "MarkTimeZone", "Z2","1/8/2010","1/8/2010",16744544,"0:3;;truncated-zone");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2210
|
How can I prevent expanding/collapsing the child items
// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
FUNCTION g2anttEvents_BeforeExpandItem(OBJECT g2antt, INT Item, VARIANT Cancel)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim Item")
_ObjectCallMethod(g2antt, "TemplatePut", Item)
Cancel = _ObjectCallMethod(g2antt, "ExecuteTemplate", ".Items.ItemParent(Item)");
END
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SingleSel", 0);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Default");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", _ObjectCallMethod( items , "InsertItem", h,"","Child 1.1"),"","Child");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1.2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", _ObjectCallMethod( items , "InsertItem", h,"","Child 2.1"),"","Child");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2.2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2209
|
How can I display the EBN bigger or smaller (thumb)
OBJECT appearance,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod( appearance , "Add", 10,"CP:1 0 3 0 -3");
_ObjectCallMethod( appearance , "Add", 17,"CP:1 3 0 -3 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(388) = 167772160");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(260) = 285212672");
_ObjectSetProperty( g2antt , "ScrollBars", 3855);
_ObjectSetProperty( g2antt , "ScrollBySingleLine", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Def");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( items , "AddItem", 3);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2208
|
I am using GroupBy feature to create a tree, but the top rows are aligned with the children, not indented. What could be wrong
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddGroupItem(OBJECT g2antt, INT Item)
OBJECT items;
color = 14474460;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", Item)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemDivider(Item) = -1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(Item,1) = CellCaption(Item,GroupItem(Item))");
_ObjectCallMethod( items , "AddBar", Item,"Progress","12/2/2017","12/2/2017");
_ObjectCallMethod( items , "DefineSummaryBars", Item,"",-3,"");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBold(Item) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(Item) = color");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim Item")
_ObjectCallMethod(g2antt, "TemplatePut", Item)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.ItemBackColor(Item) = color");
END
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", Item,"Task","12/4/2017","12/10/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", Item)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(Item,``,514) = ItemToIndex(Item)");
END
OBJECT chart,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/2/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "C1");
_ObjectCallMethod( columns , "Add", "C2");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectSetProperty( g2antt , "SortBarVisible", -1);
_ObjectSetProperty( g2antt , "SortBarCaption", "Drag a <b>column</b> header here to group by that column.");
_ObjectSetProperty( g2antt , "AllowGroupBy", -1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem A.1`");
h = _ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem A.1`");
h = _ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem A.1`");
h = _ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem A.1`");
h = _ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem B.1`");
h = _ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem B.1`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(0).SortOrder = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2207
|
How can I change the names from English to my locale (localization)
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowResizeChart", 262);
_ObjectSetProperty( chart , "MonthNames", _ObjectGetProperty( chart , "LocMonthNames"));
_ObjectSetProperty( chart , "WeekDays", _ObjectGetProperty( chart , "LocWeekDays"));
_ObjectSetProperty( chart , "AMPM", _ObjectGetProperty( chart , "LocAMPM"));
_ObjectSetProperty( chart , "FirstWeekDay", _ObjectGetProperty( chart , "LocFirstWeekDay"));
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(16) = `<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(256) = `<|>KW<%ww%><|><%d%>. <%loc_m3%>, '<%yy%><r>KW<%ww%><|><%d%>. <%loc_mmmm%>, <%yyyy%><r>KW<%ww%><||><||>256`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(4096) = `<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%><||><||>4096`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(65536) = `<|><%hh%><|><%hh%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%><||><||>65536`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(1048576) = `<|><%nn%><|><%hh%>:<%nn%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%>:<%nn%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(16777216) = `<|><%ss%><|><%nn%>:<%ss%><|><%hh%>:<%nn%>:<%ss%><|><%loc_d3%>, <%d%>. <%loc_m3%>, '<%yy%> <%hh%>:<%nn%>:<%ss%><|><%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>:<%ss%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(16) = `<%loc_mmmm%>/<%yyyy%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(256) = `<%d%>. <%loc_mmmm%>, <%yyyy%> KW<%ww%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(4096) = `<%loc_dddd%>, <%d%>. <%loc_mmmm%> , <%yyyy%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(65536) = `<%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(1048576) = `<%loc_dddd%>, <%d%>. <%loc_mmmm%>, <%yyyy%> <%hh%>:<%nn%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.LabelToolTip(16777216) = `<%loc_dddd%>, <%d%>. <%loc_mmmm%> <%yyyy%> <%hh%>:<%nn%>:<%ss%>`");
_ObjectSetProperty( chart , "ToolTip", "<%ddd%> <%d%>. <%loc_mmmm%> <%yyyy%>");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectSetProperty( chart , "UnitWidth", 24);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2206
|
Is it possible to change the pattern for selection within the control's overview part (I would prefer a semi-transparent or solid color instead)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 2,"gBFLBCJwBAEHhEJAAEhABMsGACAADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYJAKCQ5DBJUBjTBcEwKGCQBwASQpUhqHYDTbIMByB" +
"IUIxUACUJAgeCRYiAMo8RrSEZARBNGR3GqaJ7oGTpRoaP4iSBTUThBRsPyhHqOBpEWIRSqKEQ1DBYcI2RZUaxBJQAAbrWr5VpKKYnSzBA4TBQkSTpGicZxteoJeiefIE" +
"VTHFwRNaFNS1Linb7ia5qCwmOJXUjcYAYfBOIR1SSBbIsawbNACbJnWjENYVdAdNTlAbPNAyPBqSDaMYRDCOND1BhuNATWSNLq2XZ5OzrGIaVjmWbbfwELZFUqydJ0ex" +
"eiYNw/kGZBuDCHR/DeEYaCgGhMGcQ4pkiSxDgGXhIESW5MFgbQJBQZx+DScJEGsVZdnufggG+f5fnPFB/ooBZ/EaIAoBYBoBmASAeAqApfjgJgMgOYAoDoEIEl+WBKBS" +
"BQhGgXgQgYYYoDIHIHGCKB+CCAYiCiDgREWYhoG4KIKGGaIuCyCBfhiRQJDqXxgAEASAg");
_ObjectSetProperty( g2antt , "SelBackMode", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "OverviewVisible", -1);
_ObjectSetProperty( chart , "OverviewHeight", 64);
_ObjectSetProperty( chart , "FirstVisibleDate", "7/30/2018");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
_ObjectSetProperty( chart , "OverviewSelBackColor", 33619712);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.OverviewSelTransparent(True) = 50");
_ObjectSetProperty( g2antt , "SelBackColor", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "SelForeColor", _ObjectGetProperty( g2antt , "ForeColor"));
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/8/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","8/3/2018","8/10/2018");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","8/4/2019","8/12/2019");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(1)) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2205
|
How can I display an item of picture type
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectSetProperty( g2antt , "ScrollBySingleLine", 0);
_ObjectSetProperty( g2antt , "HeaderAppearance", 4);
_ObjectSetProperty( g2antt , "HeaderHeight", 24);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Artikel") , "HTMLCaption", "<u>Artikel");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Waarde") , "HTMLCaption", "<u>Waarde");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "HTMLPicture(`T22128`) = `c:\exontrol\images\zipdisk.gif`");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "T22128-28)2D");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","<img>T22128:128</img>");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(h1,0) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHeight(h1) = 128");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","werkvoorbereiding");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = `5.80`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellBold(h1,1) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h1,,`Type`),1) = `Eenvoudig`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h1,,`Prijs p/uur`),1) = `60,00`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h1,,`Marhe`),1) = `15,00%`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h1,,`Insteltijd min.`),1) = `5,00`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h1,,`Aantal`),1) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(InsertItem(h1,,`Kostprije`),1) = `5,00`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h1) = True");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","materiall");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = `14.82`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellBold(h1,1) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHasChildren(h1) = True");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","snijden");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = `3.13`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellBold(h1,1) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHasChildren(h1) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2204
|
How can I bold the root group-items
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddGroupItem(OBJECT g2antt, INT Item)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", Item,"Progress","12/2/2017","12/2/2017");
_ObjectCallMethod( items , "DefineSummaryBars", Item,"",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", Item)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBold(Item) = True");
END
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddBar", Item,"Task","12/4/2017","12/10/2017");
END
OBJECT chart,column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/2/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 342");
columns = _ObjectGetProperty( g2antt , "Columns");
column = _ObjectCallMethod( columns , "Add", "C1");
_ObjectSetProperty( column , "GroupByFormatCell", "'<caption> (' + value + ')'");
_ObjectCallMethod( columns , "Add", "C2");
_ObjectCallMethod( columns , "Add", "C3");
column = _ObjectCallMethod( columns , "Add", "Pos");
_ObjectSetProperty( column , "FormatColumn", "1 pos ``");
_ObjectSetProperty( column , "AllowGroupBy", 0);
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "Width", 48);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( g2antt , "SortBarVisible", -1);
_ObjectSetProperty( g2antt , "SortBarCaption", "Drag a <b>column</b> header here to group by that column.");
_ObjectSetProperty( g2antt , "AllowGroupBy", -1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem A.1`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `SubItem A.2`");
h = _ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem A.1`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `SubItem A.2`");
h = _ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem A.1`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `SubItem A.2`");
h = _ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem A.1`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `SubItem A.2`");
h = _ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem B.1`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `SubItem B.2`");
h = _ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = `SubItem B.1`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = `SubItem B.2`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(0).SortOrder = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2203
|
The exBarTransparent does not work for overlaid-bars
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "BackColorAlternate", 15790320);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "LevelCount", 2);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "OverlaidType", 515);
_ObjectSetProperty( bar , "Pattern", 1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Overlaid(256) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<%=%9%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","A1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2001","1/5/2001","A2");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/7/2001","1/11/2001","B1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/12/2001","B2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,19) = 75");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2202
|
We’re adding tasks on the chart which have a caption that is not clipped (and left aligned). When we add another task right after the first one, then the caption from that first bar is “stuck” behind the second bar. The bar's z-order is determined by the bar's key.
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 24);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectSetProperty( chart , "FirstVisibleDate", "9/17/2006");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectSetProperty( chart , "LevelCount", 2);
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Green");
_ObjectSetProperty( bar , "Color", 65280);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(18) = -2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<%=%9%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Red");
_ObjectSetProperty( bar , "Color", 255);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(18) = 2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<%=%9%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Red / Green");
_ObjectCallMethod( items , "AddBar", h1,"Green","9/21/2006","9/27/2006","K1");
_ObjectCallMethod( items , "AddBar", h1,"Red","9/23/2006","9/25/2006","K2");
h1 = _ObjectCallMethod( items , "AddItem", "Green / Red");
_ObjectCallMethod( items , "AddBar", h1,"Green","9/21/2006","9/27/2006","K2");
_ObjectCallMethod( items , "AddBar", h1,"Red","9/23/2006","9/25/2006","K1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
2201
|
The caption/text of the link is overwritten by its line. What can be done
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 64");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/21/2005");
_ObjectSetProperty( chart , "ResizeUnitScale", 65536);
_ObjectSetProperty( chart , "UnitWidth", 48);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).Label = `<b><%mmm%></b> <%dd%>`");
_ObjectSetProperty( chart , "LinksWidth", 3);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "AddBar", h,"Task","6/22/2005","6/23/2005");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Child");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/24/2005 8:00:00 AM","6/24/2005 4:00:00 PM");
_ObjectCallMethod( items , "AddLink", "Link1",h,"",h1,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`Link1`,12) = `<bgcolor=FFFFFF> link </bgcolor>`");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|